home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr47 / wasm223.zip / OMEGA < prev    next >
Text File  |  1993-05-04  |  2KB  |  56 lines
  1. //
  2. // Session macro to log on to the Omega BBS
  3. // By Eric Tauck
  4. //
  5.  
  6. // attempt log-on
  7.  
  8. : logon
  9.  
  10. CLEAR                           // clear screen
  11. mes1 MESS                       // display message
  12. dial DialPhone CALL             // dial the number
  13. NOT noconnect ?JUMP             // jump if no connect
  14. inp1 out1 PromptRespond CALL    // first prompt and response
  15. NOT abort ?JUMP                 // exit if timeout
  16. inp2 out2 PromptRespond CALL    // second prompt and response
  17. NOT abort ?JUMP                 // exit if timeout
  18. QUIT                            // exit
  19.  
  20. // no connect
  21.  
  22. : noconnect
  23. mes3 VERIFY                     // try again?
  24. logon ?JUMP                     // loop back if so
  25. -45 KREP                        // simulate an ALT-X (negative scan code)
  26. QUIT                            // exit
  27.  
  28. // abort
  29.  
  30. : abort
  31. mes2 ERROR                      // display error message
  32. -45 KREP                        // simulate an ALT-X (negative scan code)
  33. QUIT                            // exit
  34.  
  35. // data
  36.  
  37. : dial " AT &D2 DT15123288402"          // dial and modem init string
  38.  
  39. : inp1 " RETURN: "                      // user id prompt
  40. : out1 " USERID^M"                      // user id, put your user id here
  41.  
  42. : inp2 " password:"                     // password prompt
  43. : out2 " PASSWORD^M"                    // password, put your password here
  44.  
  45. : mes1 " * Logging on to Omega BBS"
  46. : mes2 " Unable to log on to system"
  47. : mes3 " Unable to connect, try again"
  48.  
  49. // include files
  50.  
  51. INCLUDE c:\session\logon
  52. INCLUDE c:\session\receive
  53. INCLUDE c:\session\send
  54. INCLUDE c:\session\string
  55. INCLUDE c:\session\timer
  56.